﻿Public Class NEWGROUPSOFTWARE
    Dim connect As CONDB = CONDB.NewConnection()

    Dim myDataSet1 As DataSet = New DataSet

    '--------clear Textbox----------
    Public Sub clearGroupProgramForm()
        GPRGIDTxt.Clear()
        GPRGNAMETxt.Clear()
        masgrpprgStatusChk.Checked = False
    End Sub


    Private Sub addMasgrpprg_Click(sender As Object, e As EventArgs) Handles addMasgrpprg.Click
        If GPRGIDTxt.Text.ToString.Length > 0 And GPRGNAMETxt.Text.ToString.Length > 0 Then
            Dim objInsertData As New SOFTWAREGROUPCLASS
            objInsertData.GPRGID_ = GPRGIDTxt.Text
            objInsertData.GPRGNAME_ = GPRGNAMETxt.Text
            objInsertData.masgrpprgSTATUS_ = masgrpprgStatusChk.Checked

            If objInsertData.insertMasgrpprg() = True Then
                'querySoftwareGroupGrid()
                MsgBox("ท่านได้ทำการเพิ่มกลุ่มโปรแกรมเรียบร้อยแล้ว")
                clearGroupProgramForm()
                DialogResult = Windows.Forms.DialogResult.OK
                Me.Close()
            End If

            connect.Dispose()
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วนทุกช่องก่อนทำการเพิ่มข้อมูล")
        End If
    End Sub

    Private Sub NEWGROUPSOFTWARE_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class